home *** CD-ROM | disk | FTP | other *** search
/ PD ROM 1 / PD ROM Volume I - Macintosh Software from BMUG (1988).iso / Stacks / Hyper Entertainment / Graphics / Monster hunt / Monster hunt / background_2814.txt < prev    next >
Encoding:
Text File  |  1988-04-23  |  4.2 KB  |  191 lines
  1. -- background: 2814 from stack: in
  2. -- bmap block id: 6856
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6.  
  7.  
  8. -- part 16 (button)
  9. -- low flags: 00
  10. -- high flags: 0000
  11. -- rect: left=367 top=100 right=145 bottom=447
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: gun button
  20. ----- HyperTalk script -----
  21. --  ¬© Copyright 1987, Prophecy Software.  All rights reserved.
  22. --  This script is proprietary information  of Prophecy Software,
  23. --  and may not be copied or distributed by any means withour the
  24. --  written permission of the Author.
  25.  
  26.  
  27. on mouseUp
  28.   Global bullets
  29.   Global monster_on
  30.   Global monster_room
  31.   global monster_dead
  32.   global dead_monster_on
  33.   global monster_stalk
  34.   global score
  35.  
  36.   if bullets > 0 then
  37.     play "Gun"
  38.     put bullets -1 into bullets
  39.     if bullets is 2 then show bkgnd button "bullet 1"
  40.     if bullets is 1 then show bkgnd button "bullet 2"
  41.     if bullets is 0 then show bkgnd button "bullet 3"
  42.     if monster_on is true and monster_dead is 0 then
  43.       play "Scream"
  44.       get the id of this card
  45.       put it into monster_room
  46.       put true into dead_monster_on
  47.       put 1 into monster_dead
  48.       put false into monster_stalk
  49.  
  50.       get the short name of this card
  51.       if offset("water", it) is not 0 then
  52.         put 2 into monster_dead
  53.         put "card 1" into monster_room
  54.         put false into monster_on
  55.         put 30 + score into score
  56.       end if
  57.       put 20 + score into score
  58.       get the id of this card
  59.       go to it
  60.       if monster_dead is 1 then DeadMonster
  61.     end if
  62.  
  63.     -- test for shooting gun in severly cracked room
  64.     get the short name of this card
  65.     if it is "crash" then
  66.       global excuse
  67.       go to card "no crash next"
  68.       play "Scream" tempo 1 g
  69.       put "Not a smart move." into excuse
  70.       visual effect dissolve
  71.       go to card end
  72.     end if
  73.  
  74.     if it is "crash2" then
  75.       global excuse
  76.       go to card "no crash2 next"
  77.       play "Scream" tempo 1 g
  78.       put "Not a smart move." into excuse
  79.       visual effect dissolve
  80.       go to card end
  81.     end if
  82.  
  83.     if it is "ceiling" then
  84.       global fallen_ceiling
  85.       put true into fallen_ceiling
  86.       go to card id 10774
  87.     end if
  88.   end if
  89. end mouseUp
  90.  
  91.  
  92.  
  93. -- part 18 (button)
  94. -- low flags: 80
  95. -- high flags: 0001
  96. -- rect: left=375 top=152 right=172 bottom=395
  97. -- title width / last selected line: 0
  98. -- icon id / first selected line: 0 / 0
  99. -- text alignment: 1
  100. -- font id: 0
  101. -- text size: 12
  102. -- style flags: 0
  103. -- line height: 16
  104. -- part name: bullet 1
  105.  
  106.  
  107. -- part 19 (button)
  108. -- low flags: 80
  109. -- high flags: 0001
  110. -- rect: left=394 top=152 right=172 bottom=410
  111. -- title width / last selected line: 0
  112. -- icon id / first selected line: 0 / 0
  113. -- text alignment: 1
  114. -- font id: 0
  115. -- text size: 12
  116. -- style flags: 0
  117. -- line height: 16
  118. -- part name: bullet 2
  119.  
  120.  
  121. -- part 20 (button)
  122. -- low flags: 80
  123. -- high flags: 0001
  124. -- rect: left=410 top=152 right=172 bottom=428
  125. -- title width / last selected line: 0
  126. -- icon id / first selected line: 0 / 0
  127. -- text alignment: 1
  128. -- font id: 0
  129. -- text size: 12
  130. -- style flags: 0
  131. -- line height: 16
  132. -- part name: bullet 3
  133.  
  134.  
  135. -- part 25 (button)
  136. -- low flags: 00
  137. -- high flags: 0000
  138. -- rect: left=370 top=51 right=103 bottom=448
  139. -- title width / last selected line: 0
  140. -- icon id / first selected line: 0 / 0
  141. -- text alignment: 1
  142. -- font id: 0
  143. -- text size: 12
  144. -- style flags: 0
  145. -- line height: 16
  146. -- part name: New Button
  147. ----- HyperTalk script -----
  148. on mouseUp
  149.   global lamp_on
  150.  
  151.   if lamp_on is false then
  152.     put true into lamp_on
  153.     visual effect dissolve
  154.     pop card
  155.   else
  156.     put false into lamp_on
  157.     push card
  158.     goto card 22061
  159.   end if
  160. end mouseUp
  161.  
  162.  
  163.  
  164. -- part 26 (button)
  165. -- low flags: 00
  166. -- high flags: 0000
  167. -- rect: left=370 top=51 right=103 bottom=448
  168. -- title width / last selected line: 0
  169. -- icon id / first selected line: 0 / 0
  170. -- text alignment: 1
  171. -- font id: 0
  172. -- text size: 12
  173. -- style flags: 0
  174. -- line height: 16
  175. -- part name: New Button
  176. ----- HyperTalk script -----
  177. on mouseUp
  178.   global lamp_on
  179.  
  180.   if lamp_on is false then
  181.     put true into lamp_on
  182.     visual effect dissolve
  183.     pop card
  184.   else
  185.     put false into lamp_on
  186.     push card
  187.     go to card id 22061
  188.   end if
  189. end mouseUp
  190.  
  191.